home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / helmet.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-21  |  21.8 KB  |  983 lines
  1. 10  SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 12,1:PRINT FNCEN$("SAMURAI HELMET/GROUPER",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 3500:NEXT K
  8. 45  CLS
  9. 50  LOCATE 10,1:PRINT FNCEN$("We will first fold SAMURAI HELMET",40)
  10. 55  FOR K=1 TO 2000:NEXT K
  11. 60  PRINT:PRINT FNCEN$("and then transform HELMET into GROUPER.",40)
  12. 65  FOR K=1 TO 2500:NEXT K
  13. 70  PRINT:PRINT FNCEN$("What's a GROUPER?",40)
  14. 75  FOR K=1 TO 1500:NEXT K
  15. 80  PRINT:PRINT:PRINT FNCEN$("You'll see.",40)
  16. 85  FOR K=1 TO 1500:NEXT K
  17. 90  CLS
  18. 95  LOCATE 12,1
  19. 100  PRINT FNCEN$("One moment, please.",40)
  20. 105  FOR K=1 TO 1500:NEXT K
  21. 110                             '***Zapsound***
  22. 115  FOR A=0 TO 20
  23. 120  OUT 66,A:OUT 66,A
  24. 125  OUT 97,(INP(97) OR 3)
  25. 130  NEXT A
  26. 135  SOUND 37,0
  27. 140  CLS
  28. 145  FOR K=1 TO 250:NEXT K
  29. 150  LINE(160,30)-(240,100)
  30. 155  LINE-(160,170)
  31. 160  LINE-(80,100)
  32. 165  LINE-(160,30)
  33. 170  FOR K=1 TO 750:NEXT K
  34. 175  GOSUB 30000         '** Textpad **
  35. 180  PRINT FNCEN$("Here's our first fold.",40)
  36. 185  FOR K=1 TO 1500:NEXT K
  37. 190  FOR H=80 TO 240 STEP 2
  38. 195  PSET(H,100)
  39. 200  NEXT H
  40. 205  FOR K=1 TO 750:NEXT K
  41. 210  FOR V=30 TO 100
  42. 215  LINE(80,100)-(160,V),3
  43. 220  LINE-(240,100),3
  44. 225  LINE(80,100)-(160,V),0
  45. 230  LINE-(240,100),0
  46. 235  NEXT V
  47. 240  FOR V=100 TO 170
  48. 245  LINE(80,100)-(160,V),3
  49. 250  LINE-(240,100),3
  50. 255  NEXT V
  51. 260  GOSUB 30000   '*** Textpad ***
  52. 265  PRINT FNCEN$("Press <C> to continue.",40)
  53. 270  A$=INKEY$:IF A$="" GOTO 270
  54. 275  IF A$="C" OR A$="c" GOTO 285
  55. 280  GOTO 260
  56. 285  GOSUB 30000         '** Textpad **
  57. 290  PRINT FNCEN$("These corners",40)
  58. 295  FOR K=1 TO 1500:NEXT K
  59. 300                              '*** arrow right ***
  60. 305  FOR K=1 TO 15
  61. 310  PSET(72,100):DRAW"H5D4L7D2R7D4E5"
  62. 315  PAINT(66,100)
  63. 320  PSET(248,100):DRAW"E5D4R7D2L7D4H5"
  64. 325  PAINT(254,100)
  65. 330  'FOR M=1 TO 25:NEXT M
  66. 335  CIRCLE(66,100),7,0
  67. 340  PAINT(66,100),0
  68. 345  CIRCLE(254,100),7,0
  69. 350  PAINT(254,100),0
  70. 355  NEXT K
  71. 360                              '***end arrow right ***
  72. 365  FOR K=1 TO 250:NEXT K
  73. 370  GOSUB 30000         '** Textpad **
  74. 375  PRINT FNCEN$("fold down to this corner",40)
  75. 380  FOR K=1 TO 750:NEXT K
  76. 385                              '*** arrow up ***
  77. 390  FOR K=1 TO 15
  78. 395  PSET(160,178):DRAW"g5r4d7r2u7r4h5"
  79. 400  PAINT(160,184)
  80. 405  FOR M=1 TO 25:NEXT M
  81. 410  CIRCLE(160,184),7,0
  82. 415  PAINT(160,184),0
  83. 420  NEXT K
  84. 425  FOR K=1 TO 750:NEXT K
  85. 430  GOSUB 30000         '** Textpad **
  86. 435  PRINT FNCEN$("across these lines,",40)
  87. 440  FOR K=1 TO 1000:NEXT K
  88. 445  CIRCLE(160,184),7,0
  89. 450  PAINT(160,184),0
  90. 455  LINE(120,135)-(160,100),0
  91. 460  LINE-(200,135),0
  92. 465  FOR K=1 TO 750:NEXT K
  93. 470  GOSUB 30000         '** Textpad **
  94. 475  PRINT FNCEN$("SO!",40)
  95. 480  FOR K=1 TO 1000:NEXT K
  96. 485  FOR Q=0 TO 40
  97. 490  LINE(160,100)-(80+Q,100+0.875*Q),0
  98. 495  LINE(160,99)-(80+Q,99+0.875*Q),0
  99. 500  FOR M=1 TO 50:NEXT M
  100. 505  NEXT Q
  101. 510  FOR Q=0 TO 40
  102. 515  LINE(160,100)-(120+Q,135+0.875*Q),0
  103. 520  LINE(160,99)-(120+Q,134+0.875*Q),0
  104. 525  LINE(160,100)-(120+Q,135+0.875*Q),3
  105. 530  LINE(160,99)-(120+Q,134+0.875*Q),3
  106. 535  FOR M=1 TO 50:NEXT M
  107. 540  NEXT Q
  108. 545  LINE(160,100)-(160,170),0
  109. 550  FOR K=1 TO 250:NEXT K
  110. 555  FOR Q=0 TO 40
  111. 560  LINE(160,100)-(240-Q,100+0.875*Q),0
  112. 565  LINE(160,99)-(240-Q,99+0.875*Q),0
  113. 570  FOR M=1 TO 50:NEXT M
  114. 575  NEXT Q
  115. 580  FOR Q=0 TO 40
  116. 585  LINE(160,100)-(200-Q,135+0.875*Q),0
  117. 590  LINE(160,99)-(200-Q,134+0.875*Q),0
  118. 595  LINE(160,100)-(200-Q,135+0.875*Q),3
  119. 600  LINE(160,99)-(200-Q,134+0.875*Q),3
  120. 605  FOR M=1 TO 50:NEXT M
  121. 610  NEXT Q
  122. 615  LINE(160,100)-(160,170),0
  123. 620  FOR K=1 TO 750:NEXT K
  124. 625  GOSUB 30000         '** Textpad **
  125. 630  PRINT FNCEN$("Now, I'll change scale.",40)
  126. 635  FOR K=1 TO 1500:NEXT K
  127. 640  GOSUB 30000         '** Textpad **
  128. 645  PRINT FNCEN$("One moment, please.",40)
  129. 650  FOR K=1 TO 1500:NEXT K
  130. 655                             '***Zapsound***
  131. 660  FOR A=0 TO 20
  132. 665  OUT 66,A:OUT 66,A
  133. 670  OUT 97,(INP(97) OR 3)
  134. 675  NEXT A
  135. 680  SOUND 37,0
  136. 685  CLS
  137. 690  FOR K=1 TO 250:NEXT K
  138. 695  LINE(160,30)-(80,100)
  139. 700  LINE-(160,170)
  140. 705  LINE-(240,100)
  141. 710  LINE-(160,30)
  142. 715  PAINT(160,100)
  143. 720  LINE(160,30)-(160,170),0
  144. 725  GOSUB 30000   '*** Textpad ***
  145. 730  PRINT FNCEN$("Press <C> to continue.",40)
  146. 735  A$=INKEY$:IF A$="" GOTO 735
  147. 740  IF A$="C" OR A$="c" GOTO 745
  148. 745  GOSUB 30000         '** Textpad **
  149. 750  PRINT FNCEN$("These flaps",40)
  150. 755  FOR K=1 TO 750:NEXT K
  151. 760  LINE(150,160)-(170,160),0
  152. 765  LINE-(165,150),0
  153. 770  LINE-(160,160),0
  154. 775  LINE-(155,150),0
  155. 780  LINE-(150,160),0
  156. 785  FOR K=1 TO 250:NEXT K
  157. 790  FOR K=1 TO 15
  158. 795  PSET(160,178):DRAW"g5r4d7r2u7r4h5"
  159. 800  PAINT(160,184)
  160. 805  FOR M=1 TO 25:NEXT M
  161. 810  CIRCLE(160,184),7,0
  162. 815  PAINT(160,184),0
  163. 820  NEXT K
  164. 825  FOR K=1 TO 250:NEXT K
  165. 830  GOSUB 30000         '** Textpad **
  166. 835  PRINT FNCEN$("fold across this line",40)
  167. 840  FOR K=1 TO 750:NEXT K
  168. 845  FOR H=80 TO 240 STEP 2
  169. 850  PSET(H,100),0
  170. 855  NEXT H
  171. 860  FOR K=1 TO 750:NEXT K
  172. 865  GOSUB 30000         '** Textpad **
  173. 870  PRINT FNCEN$("up to here,",40)
  174. 875  FOR K=1 TO 750:NEXT K
  175. 880                              '*** arrow down ***
  176. 885  FOR K=1 TO 15
  177. 890  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  178. 895  PAINT(160,16)
  179. 900  FOR M=1 TO 25:NEXT M
  180. 905  CIRCLE(160,16),7,0
  181. 910  PAINT(160,16),0
  182. 915  NEXT K
  183. 920                              '***end arrow down ***
  184. 925  FOR K=1 TO 750:NEXT K
  185. 930  GOSUB 30000         '** Textpad **
  186. 935  PRINT FNCEN$("THUS!",40)
  187. 940  FOR K=1 TO 750:NEXT K
  188. 945  LINE(150,160)-(170,160)
  189. 950  LINE-(165,150)
  190. 955  LINE-(160,160)
  191. 960  LINE-(155,150)
  192. 965  LINE-(150,160)
  193. 970  LINE(160,150)-(160,170),0
  194. 975  FOR V=169 TO 100 STEP -1
  195. 980  LINE(239,100)-(161,V-1),0
  196. 985  LINE(240,100)-(161,V),0
  197. 990  LINE(240,100)-(161,V),3
  198. 995  NEXT V
  199. 1000  FOR V=100 TO 32 STEP -1
  200. 1005  LINE(239,100)-(161,V-1),0
  201. 1010  LINE(240,100)-(161,V),0
  202. 1015  LINE(239,100)-(161,V-1),3
  203. 1020  LINE(240,100)-(161,V),3
  204. 1025  LINE(161,100)-(240,100),0
  205. 1030  NEXT V
  206. 1035  FOR K=1 TO 750:NEXT K
  207. 1040  FOR V=169 TO 100 STEP -1
  208. 1045  LINE(81,100)-(160,V-1),0
  209. 1050  LINE(80,100)-(160,V),0
  210. 1055  LINE(80,100)-(160,V),3
  211. 1060  NEXT V
  212. 1065  FOR V=100 TO 32 STEP -1
  213. 1070  LINE(81,100)-(160,V-1),0
  214. 1075  LINE(80,100)-(160,V),0
  215. 1080  LINE(81,100)-(160,V-1),3
  216. 1085  LINE(80,100)-(160,V),3
  217. 1090  LINE(80,100)-(240,100),0
  218. 1095  LINE(160,30)-(160,100),0
  219. 1100  NEXT V
  220. 1105  FOR K=1 TO 750:NEXT K
  221. 1110  GOSUB 30000   '*** Textpad ***
  222. 1115  PRINT FNCEN$("Press <C> to continue.",40)
  223. 1120  A$=INKEY$:IF A$="" GOTO 1120
  224. 1125  IF A$="C" OR A$="c" GOTO 1135
  225. 1130  GOTO 1110
  226. 1135  GOSUB 30000         '** Textpad **
  227. 1140  PRINT FNCEN$("Execute the next folds so that this edge",40)
  228. 1145  FOR K=1 TO 2000:NEXT K
  229. 1150  LINE(160,100)-(183,50),0
  230. 1155  FOR K=1 TO 250:NEXT K
  231. 1160  PSET(179,40):DRAW"u5f2e5f2g5f2l6"
  232. 1165  PAINT(183,36)
  233. 1170  FOR K=1 TO 750:NEXT K
  234. 1175  FOR K=1 TO 25
  235. 1180  LINE(160,30)-(183,50),3
  236. 1185  LINE(161,31)-(182,50),3
  237. 1190  FOR M=1 TO 25:NEXT M
  238. 1195  LINE(160,30)-(183,50),2
  239. 1200  LINE(161,31)-(182,50),2
  240. 1205  NEXT K
  241. 1210  CIRCLE(183,37),7,0
  242. 1215  PAINT(183,37),0
  243. 1220  GOSUB 30000         '** Textpad **
  244. 1225  PRINT FNCEN$("ends up parallel to this center line,",40)
  245. 1230  FOR K=1 TO 2000:NEXT K
  246. 1235  FOR K=1 TO 25
  247. 1240  LINE(80,100)-(240,100),3
  248. 1245  FOR M=1 TO 25:NEXT M
  249. 1250  LINE(80,100)-(240,100),2
  250. 1255  NEXT K
  251. 1260  FOR K=1 TO 750:NEXT K
  252. 1265  GOSUB 30000         '** Textpad **
  253. 1270  PRINT FNCEN$("SO!",40)
  254. 1275  FOR K=1 TO 250:NEXT K
  255. 1280  'LINE(160,30)-(183,50),3
  256. 1285  'LINE(161,31)-(182,50),3
  257. 1290  FOR K=1 TO 250:NEXT K
  258. 1295  FOR Q=0 TO 23
  259. 1300  LINE(160,100)-(160+Q,30+0.87*Q),0
  260. 1305  LINE(160,100)-(160+Q,30+0.87*Q),3
  261. 1310  LINE(160,30)-(160,100),0
  262. 1315  FOR M=1 TO 50:NEXT M
  263. 1320  NEXT Q
  264. 1325  FOR H=183 TO 215
  265. 1330  LINE(160,100)-(H,50),0
  266. 1335  LINE(160,100)-(H,50),3
  267. 1340  LINE(160,100)-(183,50),0
  268. 1345  FOR M=1 TO 50:NEXT M
  269. 1350  NEXT H
  270. 1355  LINE(160,100)-(215,50),0
  271. 1360  LINE(184,50)-(214,50),2
  272. 1365  FOR K=1 TO 250:NEXT K
  273. 1370  GOSUB 30000         '** Textpad **
  274. 1375  PRINT FNCEN$("Parallel?",40)
  275. 1380  FOR K=1 TO 1500:NEXT K
  276. 1385  GOSUB 30000         '** Textpad **
  277. 1390  PRINT FNCEN$("Parallel!",40)
  278. 1395  FOR K=1 TO 1500:NEXT K
  279. 1400  LINE(80,100)-(240,100),0
  280. 1405  LINE(184,50)-(214,50)
  281. 1410  GOSUB 30000         '** Textpad **
  282. 1415  PRINT FNCEN$("Repeat on the other side.",40)
  283. 1420  FOR K=1 TO 750:NEXT K
  284. 1425  LINE(160,100)-(137,50),0
  285. 1430  FOR K=1 TO 750:NEXT K
  286. 1435  FOR Q=0 TO 23
  287. 1440  LINE(160,100)-(160-Q,30+0.87*Q),0
  288. 1445  LINE(160,100)-(160-Q,30+0.87*Q),3
  289. 1450  LINE(160,30)-(160,100),0
  290. 1455  FOR M=1 TO 50:NEXT M
  291. 1460  NEXT Q
  292. 1465  FOR H=137 TO 105 STEP -1
  293. 1470  LINE(160,100)-(H,50),0
  294. 1475  LINE(160,100)-(H,50),3
  295. 1480  LINE(160,100)-(137,50),0
  296. 1485  FOR M=1 TO 50:NEXT M
  297. 1490  NEXT H
  298. 1495  LINE(160,100)-(105,50),0
  299. 1500  GOSUB 30000   '*** Textpad ***
  300. 1505  PRINT FNCEN$("Press <C> to continue.",40)
  301. 1510  A$=INKEY$:IF A$="" GOTO 1510
  302. 1515  IF A$="C" OR A$="c" GOTO 1525
  303. 1520  GOTO 1500
  304. 1525  GOSUB 30000         '** Textpad **
  305. 1530  PRINT FNCEN$("Our next fold takes this corner",40)
  306. 1535  FOR K=1 TO 750:NEXT K
  307. 1540  FOR K=1 TO 15
  308. 1545  PSET(160,178):DRAW"g5r4d7r2u7r4h5"
  309. 1550  PAINT(160,184)
  310. 1555  FOR M=1 TO 25:NEXT M
  311. 1560  CIRCLE(160,184),7,0
  312. 1565  PAINT(160,184),0
  313. 1570  NEXT K
  314. 1575  LINE(160,170)-(166,165),0
  315. 1580  LINE-(160,160),0
  316. 1585  LINE-(154,165),0
  317. 1590  LINE-(160,170),0
  318. 1595  PAINT(160,165),0
  319. 1600  LINE(160,170)-(166,165)
  320. 1605  LINE-(160,160)
  321. 1610  LINE-(154,165)
  322. 1615  LINE-(160,170)
  323. 1620  LINE(154,165)-(166,165)
  324. 1625  FOR K=1 TO 750:NEXT K
  325. 1630  GOSUB 30000         '** Textpad **
  326. 1635  PRINT FNCEN$("up to this center point of HELMET",40)
  327. 1640  FOR K=1 TO 1500:NEXT K
  328. 1645  CIRCLE(160,184),7,0
  329. 1650  PAINT(160,184),0
  330. 1655  PAINT(160,163)
  331. 1660  PAINT(160,168)
  332. 1665                                '*** flashdot ***
  333. 1670  FOR K=1 TO 15
  334. 1675  CIRCLE(160,65),5,3
  335. 1680  LINE(158,65)-(162,65),3
  336. 1685  LINE(160,63)-(160,67),3
  337. 1690  FOR M=1 TO 25:NEXT M
  338. 1695  CIRCLE(160,65),5,0
  339. 1700  LINE(158,65)-(162,65),0
  340. 1705  LINE(160,63)-(160,67),0
  341. 1710  NEXT K
  342. 1715  CIRCLE(160,65),5,3
  343. 1720  PAINT(160,65),3
  344. 1725  LINE(160,50)-(160,80),0
  345. 1730  FOR K=1 TO 750:NEXT K
  346. 1735                              '*** end flashdot ***
  347. 1740  GOSUB 30000         '** Textpad **
  348. 1745  PRINT FNCEN$("across this line.",40)
  349. 1750  FOR K=1 TO 750:NEXT K
  350. 1755  FOR H=97 TO 223 STEP 2
  351. 1760  PSET(H,115),0
  352. 1765  NEXT H
  353. 1770  FOR K=1 TO 750:NEXT K
  354. 1775  FOR V=170 TO 115 STEP -1
  355. 1780  LINE(97,115)-(160,V),0
  356. 1785  LINE-(223,115),0
  357. 1790  PSET(157,168),0:PSET(163,168),0
  358. 1795  LINE(80,100)-(160,170)
  359. 1800  LINE-(240,100)
  360. 1805  NEXT V
  361. 1810  FOR V=115 TO 65 STEP -1
  362. 1815  LINE(97,115)-(160,V),0
  363. 1820  LINE-(223,115),0
  364. 1825  LINE(97,115)-(223,115)
  365. 1830  NEXT V
  366. 1835  GOSUB 30000   '*** Textpad ***
  367. 1840  PRINT FNCEN$("Press <C> to continue.",40)
  368. 1845  A$=INKEY$:IF A$="" GOTO 1845
  369. 1850  IF A$="C" OR A$="c" GOTO 1860
  370. 1855  GOTO 1835
  371. 1860  GOSUB 30000         '** Textpad **
  372. 1865  PRINT FNCEN$("We next take this edge",40)
  373. 1870  FOR K=1 TO 750:NEXT K
  374. 1875  PSET(160,123):DRAW"g5r4d7r2u7r4h5"
  375. 1880  PAINT(160,129)
  376. 1885  FOR K=1 TO 250:NEXT K
  377. 1890  FOR K=1 TO 15
  378. 1895  LINE(97,115)-(223,115),0
  379. 1900  FOR M=1 TO 25:NEXT M
  380. 1905  LINE(97,115)-(223,115),3
  381. 1910  NEXT K
  382. 1915  CIRCLE(160,129),7,0
  383. 1920  PAINT(160,129),0
  384. 1925  FOR K=1 TO 750:NEXT K
  385. 1930  GOSUB 30000         '** Textpad **
  386. 1935  PRINT FNCEN$("over this line,",40)
  387. 1940  FOR K=1 TO 750:NEXT K
  388. 1945  FOR H=115 TO 205 STEP 2
  389. 1950  PSET(H,100),3
  390. 1955  NEXT H
  391. 1960  FOR K=1 TO 750:NEXT K
  392. 1965  GOSUB 30000         '** Textpad **
  393. 1970  PRINT FNCEN$("SO!",40)
  394. 1975  FOR K=1 TO 750:NEXT K
  395. 1980  FOR V=115 TO 100 STEP -1
  396. 1985  LINE(80,100)-(97,V),3
  397. 1990  LINE-(223,V),3
  398. 1995  LINE-(240,100),3
  399. 2000  LINE(80,100)-(97,V),0
  400. 2005  LINE-(223,V),0
  401. 2010  LINE-(240,100),0
  402. 2015  LINE(80,100)-(160,170)
  403. 2020  LINE-(240,100)
  404. 2025  FOR M=1 TO 50:NEXT M
  405. 2030  NEXT V
  406. 2035  FOR V=100 TO 85 STEP -1
  407. 2040  LINE(80,100)-(97,V),3
  408. 2045  LINE-(223,V),3
  409. 2050  LINE-(240,100),3
  410. 2055  LINE(80,100)-(97,V),0
  411. 2060  LINE-(223,V),0
  412. 2065  LINE-(240,100),0
  413. 2070  LINE(98,84)-(80,100)
  414. 2075  LINE-(240,100)
  415. 2080  LINE-(222,84)
  416. 2085  FOR M=1 TO 50:NEXT M
  417. 2090  NEXT V
  418. 2095  LINE(98,84)-(222,84)
  419. 2100  GOSUB 30000   '*** Textpad ***
  420. 2105  PRINT FNCEN$("Press <C> to continue.",40)
  421. 2110  A$=INKEY$:IF A$="" GOTO 2110
  422. 2115  IF A$="C" OR A$="c" GOTO 2125
  423. 2120  GOTO 2100
  424. 2125  GOSUB 30000         '** Textpad **
  425. 2130  PRINT FNCEN$("Our final fold takes this corner",40)
  426. 2135  FOR K=1 TO 750:NEXT K
  427. 2140  FOR K=1 TO 15
  428. 2145  PSET(160,178):DRAW"g5r4d7r2u7r4h5"
  429. 2150  PAINT(160,184)
  430. 2155  FOR M=1 TO 25:NEXT M
  431. 2160  CIRCLE(160,184),7,0
  432. 2165  PAINT(160,184),0
  433. 2170  NEXT K
  434. 2175  FOR K=1 TO 750:NEXT K
  435. 2180  GOSUB 30000         '** Textpad **
  436. 2185  PRINT FNCEN$("up to this corner",40)
  437. 2190  FOR K=1 TO 750:NEXT K
  438. 2195                              '*** arrow down ***
  439. 2200  FOR K=1 TO 15
  440. 2205  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  441. 2210  PAINT(160,16)
  442. 2215  FOR M=1 TO 25:NEXT M
  443. 2220  CIRCLE(160,16),7,0
  444. 2225  PAINT(160,16),0
  445. 2230  NEXT K
  446. 2235                              '***end arrow down ***
  447. 2240  FOR K=1 TO 750:NEXT K
  448. 2245  GOSUB 30000         '** Textpad **
  449. 2250  PRINT FNCEN$("on the hidden side,",40)
  450. 2255  FOR K=1 TO 1500:NEXT K
  451. 2260  GOSUB 30000         '** Textpad **
  452. 2265  PRINT FNCEN$("THUS!",40)
  453. 2270  FOR K=1 TO 750:NEXT K
  454. 2275  FOR V=170 TO 100 STEP -1
  455. 2280  LINE(80,100)-(160,V),3
  456. 2285  LINE-(240,100),3
  457. 2290  LINE(80,100)-(160,V),0
  458. 2295  LINE-(240,100),0
  459. 2300  PSET(157,168),0:PSET(163,168),0
  460. 2305  NEXT V
  461. 2310  LINE(80,100)-(240,100)
  462. 2315  FOR V=100 TO 85 STEP -1
  463. 2320  LINE(80,100)-(160,V),1
  464. 2325  LINE-(240,100),1
  465. 2330  LINE(80,100)-(160,V),0
  466. 2335  LINE-(240,100),0
  467. 2340  LINE(80,100)-(240,100)
  468. 2345  NEXT V
  469. 2350  LINE(82,99)-(98,85),1
  470. 2355  LINE(238,99)-(222,85),1
  471. 2360  FOR V=64 TO 30 STEP -1
  472. 2365  LINE(98,84)-(160,V),1
  473. 2370  LINE-(222,84),1
  474. 2375  LINE(98,84)-(160,V),3
  475. 2380  LINE-(222,84),3
  476. 2385  LINE(160,65)-(137,83),0
  477. 2390  LINE-(183,83),0
  478. 2395  PAINT(160,82),0
  479. 2400  LINE(130,84)-(190,84),3
  480. 2405  LINE(105,50)-(139,81),0
  481. 2410  LINE(215,50)-(181,81),0
  482. 2415  LINE(148,74)-(137,50),0
  483. 2420  LINE(172,74)-(183,50),0
  484. 2425  LINE(160,30)-(160,65),0
  485. 2430  NEXT V
  486. 2435  LINE(98,85)-(160,31),1
  487. 2440  LINE-(222,85),1
  488. 2445  FOR K=1 TO 750:NEXT K
  489. 2450  GOSUB 30000         '** Textpad **
  490. 2455  PRINT FNCEN$("And there we have it!",40)
  491. 2460  FOR K=1 TO 1500:NEXT K
  492. 2465  LINE(82,99)-(160,31)
  493. 2470  LINE-(238,99)
  494. 2475  LINE(105,50)-(139,81),0
  495. 2480  LINE(215,50)-(181,81),0
  496. 2485  LINE(148,74)-(137,50),0
  497. 2490  LINE(172,74)-(183,50),0
  498. 2495  LINE(160,30)-(160,65),0
  499. 2500  GOSUB 30000         '** Textpad **
  500. 2505  PRINT FNCEN$("SAMURAI HELMET!",40)
  501. 2510  FOR K=1 TO 1500:NEXT K
  502. 2515  GOSUB 30000   '*** Textpad ***
  503. 2520  PRINT FNCEN$("Press <C> to continue.",40)
  504. 2525  A$=INKEY$:IF A$="" GOTO 2525
  505. 2530  IF A$="C" OR A$="c" GOTO 2540
  506. 2535  GOTO 2515
  507. 2540  GOSUB 30000         '** Textpad **
  508. 2545  PRINT FNCEN$("We now transform HELMET into GROUPER",40)
  509. 2550  FOR K=1 TO 1500:NEXT K
  510. 2555  GOSUB 30000         '** Textpad **
  511. 2560  PRINT FNCEN$("by squashing these corners",40)
  512. 2565  FOR K=1 TO 750:NEXT K
  513. 2570  PSET(248,100):DRAW"E5D4R7D2L7D4H5"
  514. 2575  PAINT(254,100)
  515. 2580  PSET(72,100):DRAW"H5D4L7D2R7D4E5"
  516. 2585  PAINT(66,100)
  517. 2590  FOR K=1 TO 750:NEXT K
  518. 2595  GOSUB 30000         '** Textpad **
  519. 2600  PRINT FNCEN$("together down to this point,",40)
  520. 2605  FOR K=1 TO 750:NEXT K
  521. 2610                                '*** flashdot ***
  522. 2615  FOR K=1 TO 15
  523. 2620  CIRCLE(160,170),5,3
  524. 2625  LINE(158,170)-(162,170),3
  525. 2630  LINE(160,168)-(160,172),3
  526. 2635  FOR M=1 TO 25:NEXT M
  527. 2640  CIRCLE(160,170),5,0
  528. 2645  LINE(158,170)-(162,170),0
  529. 2650  LINE(160,168)-(160,172),0
  530. 2655  NEXT K
  531. 2660  FOR K=1 TO 750:NEXT K
  532. 2665                              '*** end flashdot ***
  533. 2670  GOSUB 30000         '** Textpad **
  534. 2675  PRINT FNCEN$("thus effectively flattening HELMET out,",40)
  535. 2680  FOR K=1 TO 1500:NEXT K
  536. 2685  GOSUB 30000         '** Textpad **
  537. 2690  PRINT FNCEN$("SO!",40)
  538. 2695  FOR K=1 TO 750:NEXT K
  539. 2700                            '***Zapsound***
  540. 2705  FOR A=0 TO 20
  541. 2710  OUT 66,A:OUT 66,A
  542. 2715  OUT 97,(INP(97) OR 3)
  543. 2720  NEXT A
  544. 2725  SOUND 37,0
  545. 2730  CLS
  546. 2735                             '***End Zapsound***
  547. 2740  LINE(159,40)-(161,40)
  548. 2745  LINE-(162,100)
  549. 2750  LINE-(161,160)
  550. 2755  LINE-(159,160)
  551. 2760  LINE-(158,100)
  552. 2765  LINE-(159,40)
  553. 2770  FOR K=1 TO 750:NEXT K
  554. 2775  GOSUB 30000         '** Textpad **
  555. 2780  PRINT FNCEN$("Now, we want to work",40)
  556. 2785  FOR K=1 TO 1000:NEXT K
  557. 2790  PRINT FNCEN$("with this side of HELMET.",40)
  558. 2795  FOR K=1 TO 750:NEXT K
  559. 2800                              '*** arrow left ***
  560. 2805  FOR K=1 TO 15
  561. 2810  PSET(170,100):DRAW"E5D4R7D2L7D4H5"
  562. 2815  PAINT(176,100)
  563. 2820  FOR M=1 TO 25:NEXT M
  564. 2825  CIRCLE(176,100),7,0
  565. 2830  PAINT(176,100),0
  566. 2835  NEXT K
  567. 2840                              '***end arrow left ***
  568. 2845  GOSUB 30000         '** Textpad **
  569. 2850  PRINT FNCEN$("One moment, please.",40)
  570. 2855  FOR K=1 TO 750:NEXT K
  571. 2860                            '***Zapsound***
  572. 2865  FOR A=0 TO 20
  573. 2870  OUT 66,A:OUT 66,A
  574. 2875  OUT 97,(INP(97) OR 3)
  575. 2880  NEXT A
  576. 2885  SOUND 37,0
  577. 2890  CLS
  578. 2895  FOR K=1 TO 250:NEXT K
  579. 2900  LINE(160,40)-(90,100)
  580. 2905  LINE-(160,160)
  581. 2910  LINE-(230,100)
  582. 2915  LINE-(160,40)
  583. 2920  LINE(111,81)-(160,130)
  584. 2925  LINE(160,101)-(160,160)
  585. 2930  LINE(160,40)-(160,79)
  586. 2935  LINE-(190,100)
  587. 2940  LINE-(160,100)
  588. 2945  LINE(160,40)-(160,80)
  589. 2950  LINE (120,74)-(120,90)
  590. 2955  PAINT(140,90)
  591. 2960  LINE(120,85)-(155,75),0
  592. 2965  LINE-(160,79),0
  593. 2970  LINE(131,101)-(160,101),0
  594. 2975  FOR K=1 TO 250:NEXT K
  595. 2980  GOSUB 30000         '** Textpad **
  596. 2985  PRINT FNCEN$("Well, well!",40)
  597. 2990  FOR K=1 TO 1000:NEXT K
  598. 2995  GOSUB 30000         '** Textpad **
  599. 3000  PRINT FNCEN$("Looks faintly like a fish",40)
  600. 3005  FOR K=1 TO 1500:NEXT K
  601. 3010  PRINT FNCEN$("without a tail.",40)
  602. 3015  FOR K=1 TO 1500:NEXT K
  603. 3020  GOSUB 30000         '** Textpad **
  604. 3025  PRINT FNCEN$("Let's give it a tail!",40)
  605. 3030  FOR K=1 TO 1500:NEXT K
  606. 3035  GOSUB 30000         '** Textpad **
  607. 3040  PRINT FNCEN$("We'll fold this corner",40)
  608. 3045  FOR K=1 TO 750:NEXT K
  609. 3050                              '*** arrow left ***
  610. 3055  FOR K=1 TO 15
  611. 3060  PSET(238,100):DRAW"E5D4R7D2L7D4H5"
  612. 3065  PAINT(244,100)
  613. 3070  FOR M=1 TO 25:NEXT M
  614. 3075  CIRCLE(244,100),7,0
  615. 3080  PAINT(244,100),0
  616. 3085  NEXT K
  617. 3090                              '***end arrow left ***
  618. 3095  FOR K=1 TO 750:NEXT K
  619. 3100  GOSUB 30000         '** Textpad **
  620. 3105  PRINT FNCEN$("across this line",40)
  621. 3110  FOR K=1 TO 750:NEXT K
  622. 3115  FOR V=84 TO 116 STEP 2
  623. 3120  PSET(211,V)
  624. 3125  NEXT V
  625. 3130  FOR K=1 TO 750:NEXT K
  626. 3135  FOR H=230 TO 211 STEP -1
  627. 3140  LINE(211,84)-(H,100)
  628. 3145  LINE-(211,116)
  629. 3150  LINE(211,84)-(H,100),0
  630. 3155  LINE-(211,116),0
  631. 3160  LINE(213,85)-(220,91),0
  632. 3165  LINE(213,115)-(220,109),0
  633. 3170  FOR M=1 TO 25:NEXT M
  634. 3175  NEXT H
  635. 3180  FOR H=211 TO 192 STEP -1
  636. 3185  LINE(211,84)-(H,100),3
  637. 3190  LINE-(211,116),3
  638. 3195  LINE(211,84)-(H,100),0
  639. 3200  LINE-(211,116),0
  640. 3205  LINE(211,84)-(211,116)
  641. 3210  FOR M=1 TO 25:NEXT M
  642. 3215  NEXT H
  643. 3220  LINE(211,84)-(192,100)
  644. 3225  LINE-(211,116)
  645. 3230  FOR K=1 TO 750:NEXT K
  646. 3235  FOR H=192 TO 211
  647. 3240  LINE(211,84)-(H,100),3
  648. 3245  LINE-(211,116),3
  649. 3250  LINE(211,84)-(H,100),0
  650. 3255  LINE-(211,116),0
  651. 3260  LINE(211,84)-(211,116)
  652. 3265  FOR M=1 TO 25:NEXT M
  653. 3270  NEXT H
  654. 3275  FOR H=211 TO 230
  655. 3280  LINE(211,84)-(H,100)
  656. 3285  LINE-(211,116)
  657. 3290  LINE(211,84)-(H,100),0
  658. 3295  LINE-(211,116),0
  659. 3300  LINE(213,85)-(220,91),0
  660. 3305  FOR V=84 TO 116 STEP 2
  661. 3310  PSET(211,V)
  662. 3315  NEXT V
  663. 3320  NEXT H
  664. 3325  LINE(211,84)-(230,100)
  665. 3330  LINE-(211,116)
  666. 3335  FOR K=1 TO 750:NEXT K
  667. 3340  GOSUB 30000         '** Textpad **
  668. 3345  PRINT FNCEN$("and BACKFOLD!",40)
  669. 3350  FOR K=1 TO 750:NEXT K
  670. 3355  FOR H=230 TO 211 STEP -1
  671. 3360  LINE(211,84)-(H,100)
  672. 3365  LINE-(211,116)
  673. 3370  LINE(211,84)-(H,100),0
  674. 3375  LINE-(211,116),0
  675. 3380  LINE(213,85)-(220,91),0
  676. 3385  LINE(213,115)-(220,109),0
  677. 3390  FOR M=1 TO 25:NEXT M
  678. 3395  NEXT H
  679. 3400  FOR H=211 TO 192 STEP -1
  680. 3405  LINE(211,84)-(H,100),1
  681. 3410  LINE-(211,116),1
  682. 3415  LINE(211,84)-(H,100),0
  683. 3420  LINE-(211,116),0
  684. 3425  LINE(211,84)-(211,116)
  685. 3430  FOR M=1 TO 25:NEXT M
  686. 3435  NEXT H
  687. 3440  LINE(211,84)-(192,100),1
  688. 3445  LINE-(211,116),1
  689. 3450  FOR K=1 TO 750:NEXT K
  690. 3455  FOR H=192 TO 211
  691. 3460  LINE(211,84)-(H,100),1
  692. 3465  LINE-(211,116),1
  693. 3470  LINE(211,84)-(H,100),0
  694. 3475  LINE-(211,116),0
  695. 3480  LINE(211,84)-(211,116)
  696. 3485  FOR M=1 TO 25:NEXT M
  697. 3490  NEXT H
  698. 3495  FOR H=211 TO 230
  699. 3500  LINE(211,84)-(H,100)
  700. 3505  LINE-(211,116)
  701. 3510  LINE(211,84)-(H,100),0
  702. 3515  LINE-(211,116),0
  703. 3520  LINE(213,85)-(220,91),0
  704. 3525  FOR V=84 TO 116 STEP 2
  705. 3530  PSET(211,V)
  706. 3535  NEXT V
  707. 3540  NEXT H
  708. 3545  LINE(211,84)-(230,100)
  709. 3550  LINE-(211,116)
  710. 3555  FOR K=1 TO 750:NEXT K
  711. 3560  GOSUB 30000   '*** Textpad ***
  712. 3565  PRINT FNCEN$("Press <C> to continue.",40)
  713. 3570  A$=INKEY$:IF A$="" GOTO 3570
  714. 3575  IF A$="C" OR A$="c" GOTO 3585
  715. 3580  GOTO 3560
  716. 3585  GOSUB 30000         '** Textpad **
  717. 3590  PRINT FNCEN$("With a pair of scissors or a penknife,",40)
  718. 3595  FOR K=1 TO 1500:NEXT K
  719. 3600  LINE(155,165)-(149,169)
  720. 3605  LINE-(145,175)
  721. 3610  LINE-(151,171)
  722. 3615  LINE-(155,165)
  723. 3620  CIRCLE(147,177),2
  724. 3625  CIRCLE(143,173),2
  725. 3630  LINE(155,35)-(151,29)
  726. 3635  LINE-(145,25)
  727. 3640  LINE-(149,31)
  728. 3645  LINE-(155,35)
  729. 3650  CIRCLE(143,27),2
  730. 3655  CIRCLE(147,23),2
  731. 3660  FOR K=1 TO 750:NEXT K
  732. 3665  GOSUB 30000         '** Textpad **
  733. 3670  CIRCLE(147,23),2
  734. 3675  PRINT FNCEN$("we cut along these lines",40)
  735. 3680  FOR K=1 TO 750:NEXT K
  736. 3685  PSET(164,43),0:PSET(164,157),0
  737. 3690  PSET(171,49),0:PSET(171,151),0
  738. 3695  PSET(178,55),0:PSET(178,145),0
  739. 3700  PSET(185,61),0:PSET(185,139),0
  740. 3705  PSET(192,67),0:PSET(192,133),0
  741. 3710  PSET(199,73),0:PSET(199,127),0
  742. 3715  PSET(206,79),0:PSET(206,121),0
  743. 3720  LINE(161,41)-(210,83)
  744. 3725  LINE(161,159)-(210,117)
  745. 3730  FOR Q=0 TO 49
  746. 3735  PSET(161+Q,41+0.857*Q),0
  747. 3740  PSET(161+Q,41+0.857*Q),2
  748. 3745  NEXT Q
  749. 3750  FOR Q=0 TO 49
  750. 3755  PSET(161+Q,159-0.857*Q),0
  751. 3760  PSET(161+Q,159-0.857*Q),2
  752. 3765  NEXT Q
  753. 3770  GOSUB 30000         '** Textpad **
  754. 3775  CIRCLE(147,23),2
  755. 3780  PRINT FNCEN$("and on the hidden side",40)
  756. 3785  FOR K=1 TO 750:NEXT K
  757. 3790  FOR Q=0 TO 49
  758. 3795  PSET(161+Q,158-0.857*Q),0
  759. 3800  PSET(161+Q,158-0.857*Q),1
  760. 3805  NEXT Q
  761. 3810  FOR K=1 TO 750:NEXT K
  762. 3815  LINE(140,20)-(155,35),0,BF
  763. 3820  LINE(140,164)-(155,180),0,BF
  764. 3825  FOR K=1 TO 250:NEXT K
  765. 3830  GOSUB 30000   '*** Textpad ***
  766. 3835  PRINT FNCEN$("Press <C> to continue.",40)
  767. 3840  A$=INKEY$:IF A$="" GOTO 3840
  768. 3845  IF A$="C" OR A$="c" GOTO 3855
  769. 3850  GOTO 3830
  770. 3855  GOSUB 30000         '** Textpad **
  771. 3860  PRINT FNCEN$("and unfold!",40)
  772. 3865  FOR K=1 TO 750:NEXT K
  773. 3870  FOR Q=0 TO 50
  774. 3875  LINE(161+Q,41)-(161+Q,159),3
  775. 3880  LINE(161+Q,41)-(161+Q,159),0
  776. 3885  LINE(161+Q,41+0.86*Q)-(161+Q,159-0.86*Q)
  777. 3890  LINE(155,75)-(191,101),0
  778. 3895  LINE-(131,101),0
  779. 3900  LINE(160,101)-(160,160),0
  780. 3905  NEXT Q
  781. 3910  FOR Q=0 TO 51
  782. 3915  LINE(211+Q,41)-(211+Q,159),3
  783. 3920  LINE(211+Q,41)-(211+Q,159),0
  784. 3925  LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q)
  785. 3930  LINE(211,84)-(211,116),0
  786. 3935  NEXT Q
  787. 3940  GOSUB 30000         '** Textpad **
  788. 3945  PRINT FNCEN$("and repeat on the hidden side.",40)
  789. 3950  FOR K=1 TO 750:NEXT K
  790. 3955  FOR Q=0 TO 50
  791. 3960  LINE(161+Q,41)-(161+Q,159),3
  792. 3965  LINE(161+Q,41)-(161+Q,159),0
  793. 3970  LINE(161+Q,41+0.86*Q)-(161+Q,159-0.86*Q),1
  794. 3975  LINE(161+Q,41+0.86*Q)-(161+Q,159-0.86*Q),3
  795. 3980  LINE(155,75)-(191,101),0
  796. 3985  LINE-(131,101),0
  797. 3990  LINE(160,101)-(160,160),0
  798. 3995  NEXT Q
  799. 4000  FOR Q=0 TO 51
  800. 4005  LINE(211+Q,41)-(211+Q,159),3
  801. 4010  LINE(211+Q,41)-(211+Q,159),0
  802. 4015  LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q),1
  803. 4020  LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q),3
  804. 4025  LINE(211,84)-(211,116),0
  805. 4030  NEXT Q
  806. 4035  IF A$="C" OR A$="c" GOTO 4065
  807. 4040  GOSUB 30000   '*** Textpad ***
  808. 4045  PRINT FNCEN$("Press <C> to continue.",40)
  809. 4050  A$=INKEY$:IF A$="" GOTO 4050
  810. 4055  IF A$="C" OR A$="c" GOTO 4065
  811. 4060  GOTO 4040
  812. 4065  GOSUB 30000         '** Textpad **
  813. 4070  PRINT FNCEN$("Now, we'll make our tail",40)
  814. 4075  FOR K=1 TO 1500:NEXT K
  815. 4080  GOSUB 30000         '** Textpad **
  816. 4085  PRINT FNCEN$("a little more tail-like",40)
  817. 4090  FOR K=1 TO 1500:NEXT K
  818. 4095  GOSUB 30000         '** Textpad **
  819. 4100  PRINT FNCEN$("with some judicious cutting away,",40)
  820. 4105  FOR K=1 TO 1500:NEXT K
  821. 4110  GOSUB 30000         '** Textpad **
  822. 4115  PRINT FNCEN$("SO!",40)
  823. 4120  FOR K=1 TO 750:NEXT K
  824. 4125  LINE(262,40)-(240,100),0
  825. 4130  LINE-(262,160),0
  826. 4135  PAINT(250,100),0
  827. 4140  FOR K=1 TO 750:NEXT K
  828. 4145  GOSUB 30000   '*** Textpad ***
  829. 4150  PRINT FNCEN$("Press <C> to continue.",40)
  830. 4155  A$=INKEY$:IF A$="" GOTO 4155
  831. 4160  IF A$="C" OR A$="c" GOTO 4170
  832. 4165  GOTO 4145
  833. 4170  GOSUB 30000         '** Textpad **
  834. 4175  PRINT FNCEN$("Now we'll give GROUPER a flatter belly",40)
  835. 4180  FOR K=1 TO 1500:NEXT K
  836. 4185  GOSUB 30000         '** Textpad **
  837. 4190  PRINT FNCEN$("by folding both these corners",40)
  838. 4195  FOR K=1 TO 750:NEXT K
  839. 4200  LINE(160,150)-(165,155),0
  840. 4205  LINE-(160,160),0
  841. 4210  LINE-(160,150),0
  842. 4215  PAINT(162,155),0
  843. 4220  LINE(160,150)-(165,155)
  844. 4225  LINE-(160,160)
  845. 4230  LINE-(155,155)
  846. 4235  LINE-(160,150)
  847. 4240  'LINE-(160,160)
  848. 4245  LINE(155,155)-(165,155)
  849. 4250                              '*** arrow up ***
  850. 4255  FOR K=1 TO 15
  851. 4260  PSET(160,168):DRAW"g5r4d7r2u7r4h5"
  852. 4265  PAINT(160,174)
  853. 4270  FOR M=1 TO 25:NEXT M
  854. 4275  CIRCLE(160,174),7,0
  855. 4280  PAINT(160,174),0
  856. 4285  NEXT K
  857. 4290  FOR K=1 TO 750:NEXT K
  858. 4295  GOSUB 30000         '** Textpad **
  859. 4300  PRINT FNCEN$("up over this line",40)
  860. 4305  FOR K=1 TO 750:NEXT K
  861. 4310  FOR H=126 TO 161 STEP 2
  862. 4315  PSET(H,131)
  863. 4320  NEXT H
  864. 4325  FOR H=161 TO 195 STEP 2
  865. 4330  PSET(H,131),0
  866. 4335  NEXT H
  867. 4340  FOR K=1 TO 750:NEXT K
  868. 4345  GOSUB 30000         '** Textpad **
  869. 4350  PRINT FNCEN$("on both the seen and hidden sides,",40)
  870. 4355  FOR K=1 TO 1500:NEXT K
  871. 4360  GOSUB 30000         '** Textpad **
  872. 4365  PRINT FNCEN$("SO!",40)
  873. 4370  FOR K=1 TO 750:NEXT K
  874. 4375  LINE(165,155)-(155,155),0
  875. 4380  LINE-(160,150),0
  876. 4385  LINE-(161,159)
  877. 4390  PAINT(163,155)
  878. 4395  LINE(160,150)-(160,159),0
  879. 4400  FOR V=160 TO 131 STEP -1
  880. 4405  LINE(126,131)-(160,V),3
  881. 4410  LINE-(194,131),0
  882. 4415  LINE(126,131)-(160,V),0
  883. 4420  PSET(160,V)
  884. 4425  LINE(126,131)-(160,160)
  885. 4430  LINE-(194,131)
  886. 4435  NEXT V
  887. 4440  FOR V=131 TO 102 STEP -1
  888. 4445  LINE(126,131)-(160,V),3
  889. 4450  LINE(126,131)-(160,V),0
  890. 4455  LINE-(194,131),0
  891. 4460  PSET(160,V)
  892. 4465  LINE(126,131)-(194,131)
  893. 4470  NEXT V
  894. 4475  LINE(126,131)-(160,102)
  895. 4480  FOR K=1 TO 750:NEXT K
  896. 4485  FOR V=160 TO 131 STEP -1
  897. 4490  LINE(126,131)-(160,V),3
  898. 4495  LINE-(194,131),3
  899. 4500  LINE(126,131)-(160,V),0
  900. 4505  LINE-(194,131),0
  901. 4510  NEXT V
  902. 4515  FOR V=131 TO 102 STEP -1
  903. 4520  LINE(127,131)-(160,V),1
  904. 4525  LINE-(193,131),1
  905. 4530  LINE(127,131)-(160,V),0
  906. 4535  LINE-(193,131),0
  907. 4540  PSET(160,V)
  908. 4545  LINE(126,131)-(194,131)
  909. 4550  NEXT V
  910. 4555  LINE(126,131)-(160,102)
  911. 4560  FOR K=1 TO 750:NEXT K
  912. 4565  GOSUB 30000   '*** Textpad ***
  913. 4570  PRINT FNCEN$("Press <C> to continue.",40)
  914. 4575  A$=INKEY$:IF A$="" GOTO 4575
  915. 4580  IF A$="C" OR A$="c" GOTO 4590
  916. 4585  GOTO 4565
  917. 4590  GOSUB 30000         '** Textpad **
  918. 4595  PRINT FNCEN$("And now we tuck those flaps",40)
  919. 4600  FOR K=1 TO 1500:NEXT K
  920. 4605  GOSUB 30000         '** Textpad **
  921. 4610  PRINT FNCEN$("into GROUPER's tummy",40)
  922. 4615  FOR K=1 TO 750:NEXT K
  923. 4620  LINE(90,100)-(120,135)
  924. 4625  LINE-(200,135)
  925. 4630  LINE-(211,116)
  926. 4635  FOR K=1 TO 15
  927. 4640  PSET(160,143):DRAW"g5r4d7r2u7r4h5"
  928. 4645  PAINT(160,149)
  929. 4650  FOR M=1 TO 25:NEXT M
  930. 4655  CIRCLE(160,149),7,0
  931. 4660  PAINT(160,149),0
  932. 4665  NEXT K
  933. 4670  FOR K=1 TO 750:NEXT K
  934. 4675  GOSUB 30000         '** Textpad **
  935. 4680  PRINT FNCEN$("like SO!",40)
  936. 4685  FOR K=1 TO 750:NEXT K
  937. 4690  FOR A=0 TO 20
  938. 4695  OUT 66,A:OUT 66,A
  939. 4700  OUT 97,(INP(97) OR 3)
  940. 4705  NEXT A
  941. 4710  SOUND 37,0
  942. 4715  FOR K=1 TO 250:NEXT K
  943. 4720  LINE(90,100)-(120,135),0
  944. 4725  LINE-(200,135),0
  945. 4730  LINE-(211,116),0
  946. 4735  LINE(90,100)-(126,131)
  947. 4740  LINE(160,101)-(160,130),0
  948. 4745  LINE(127,130)-(160,102),0
  949. 4750  LINE(130,100)-(160,130)
  950. 4755  PAINT(160,110)
  951. 4760  LINE(130,100)-(188,100),0
  952. 4765  PSET(130,128),0:PSET(143,117),0
  953. 4770  GOSUB 30000         '** Textpad **
  954. 4775  PRINT FNCEN$("And there we have it!",40)
  955. 4780  FOR K=1 TO 1500:NEXT K
  956. 4785  GOSUB 30000         '** Textpad **
  957. 4790  PRINT FNCEN$("GROUPER",40)
  958. 4795  FOR K=1 TO 1500:NEXT K
  959. 4800  PRINT FNCEN$("A Deep-Sea Fish",40)
  960. 4805  FOR K=1 TO 1500:NEXT K
  961. 4810  GOSUB 30000                '*** Textpad ***
  962. 4815  PRINT"  Press <1> - To return to MAIN MENU."
  963. 4820  PRINT "        <2> - To repeat HELMET/GROUPER."
  964. 4825  PRINT "        <3> - To exit from program."
  965. 4830  E$=INPUT$(1)
  966. 4835  IF E$<"1" OR E$>"3" GOTO 4830
  967. 4840  SEL=VAL(E$)
  968. 4845  COMMON SEL
  969. 4850  CLS
  970. 4855  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  971. 4856  LINE(70,75)-(250,125),3,B
  972. 4860  ON SEL GOTO 4865,4870,4875
  973. 4865  CHAIN"a:main"
  974. 4870  CHAIN"a:helmet
  975. 4875  CHAIN"a:end"
  976. 10080  END
  977. 30000  LOCATE 1,1
  978. 30010  PRINT"                                                                                                                        "
  979. 30020  LOCATE 1,1:RETURN
  980. 30030  GOSUB 30000         '** Textpad **
  981. 30040  PRINT FNCEN$("N",40)
  982. 30050  FOR K=1 TO 1500:NEXT K
  983.